home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wmfbmp / getfile.frm < prev    next >
Text File  |  1992-12-03  |  2KB  |  80 lines
  1. VERSION 2.00
  2. Begin Form GetFile 
  3.    Caption         =   "Open WMF File"
  4.    Height          =   4860
  5.    Left            =   2325
  6.    LinkTopic       =   "Form2"
  7.    ScaleHeight     =   4455
  8.    ScaleWidth      =   4095
  9.    Top             =   1920
  10.    Width           =   4215
  11.    Begin CommandButton Command2 
  12.       Cancel          =   -1  'True
  13.       Caption         =   "Cancel"
  14.       Height          =   315
  15.       Left            =   3000
  16.       TabIndex        =   4
  17.       Top             =   480
  18.       Width           =   975
  19.    End
  20.    Begin CommandButton Command1 
  21.       Caption         =   "OK"
  22.       Default         =   -1  'True
  23.       Height          =   315
  24.       Left            =   3000
  25.       TabIndex        =   3
  26.       Top             =   120
  27.       Width           =   975
  28.    End
  29.    Begin FileListBox File1 
  30.       Height          =   4125
  31.       Left            =   120
  32.       Pattern         =   "*.wmf"
  33.       TabIndex        =   2
  34.       Top             =   120
  35.       Width           =   1695
  36.    End
  37.    Begin DirListBox Dir1 
  38.       Height          =   3180
  39.       Left            =   1920
  40.       TabIndex        =   1
  41.       Top             =   900
  42.       Width           =   2055
  43.    End
  44.    Begin DriveListBox Drive1 
  45.       Height          =   315
  46.       Left            =   1920
  47.       TabIndex        =   0
  48.       Top             =   120
  49.       Width           =   855
  50.    End
  51. End
  52.  
  53. Sub Command1_Click ()
  54. thepath$ = file1.path
  55. If Right$(thepath$, 1) <> "\" Then thepath$ = thepath$ + "\"
  56. thefile$ = thepath$ + file1.filename
  57. Unload getfile
  58. End Sub
  59.  
  60. Sub Command2_Click ()
  61. thefile$ = ""
  62. Unload getfile
  63. End Sub
  64.  
  65. Sub Dir1_Change ()
  66. file1.path = dir1.path
  67. End Sub
  68.  
  69. Sub Drive1_Change ()
  70. dir1.path = drive1.drive
  71. End Sub
  72.  
  73. Sub File1_DblClick ()
  74. thepath$ = file1.path
  75. If Right$(thepath$, 1) <> "\" Then thepath$ = thepath$ + "\"
  76. thefile$ = thepath$ + file1.filename
  77. Unload getfile
  78. End Sub
  79.  
  80.